home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3.arc / DEPPRINT.PRG < prev    next >
Encoding:
Text File  |  1984-10-25  |  768 b   |  30 lines
  1.     **********  Depprint COMMAND FILE  **********
  2. * Prints valid deposits in the Getdep file as part of the Deposits file.
  3. ************************************************************************
  4. *
  5. SET PRINT ON
  6. GO TOP
  7. T_Sum = 0
  8. DO WHILE .NOT. EOF() 
  9.    EJECT
  10.    T_Count = 0
  11.    ? ' DATE     PAID BY               AMOUNT   INV #   COMMENTS:'
  12.    ?
  13.    DO WHILE .NOT. EOF() .AND. T_Count < 45
  14.       IF .NOT. DELETED()
  15.          ?  Dep_Date,Payer,Deposit,Inv_Nmbr,Comments
  16.          T_Sum = T_Sum + Deposit
  17.          T_Count = T_Count + 1
  18.       ENDIF
  19.       SKIP
  20.    ENDDO
  21. ENDDO
  22. ?
  23. ? ' The total deposit is ' + STR(T_Sum,9,2)
  24. ?
  25. ? ' The final balance is ' + STR(Mbalance,9,2)
  26. ?
  27. SET PRINT OFF
  28. *
  29. RETURN
  30.